home *** CD-ROM | disk | FTP | other *** search
/ Your Web Site Creator / Your Web Site Creator.iso / WebSite / data1.cab / Program_Executable_Files / picture.dat < prev    next >
INI File  |  1999-01-13  |  11KB  |  389 lines
  1. [Begin] ;xxxxxxxxxxxxx ADD PHOTO COLLECTION xxxxxxxxxxxxx
  2. STARTWIZARD
  3.  
  4.  
  5. LOADVARIABLES
  6. ARGUMENT modulepath("album.bin")
  7.  
  8. SHOWGENIE 2     ;close the Genie
  9.  
  10. BACKSTOP
  11. PAGE
  12. WIZPIC wizpics\wizalbum.gif
  13. TYPE RADIOBUTTONS
  14. NAME nPictures
  15. DESCRIPTION You can attach a photo collection (either 3, 6, or 9 photos) to a page on your Web site using this procedure.  How many pictures would you like to include in this picture collection display?  You can press the Cancel button to abort this procedure.
  16. ARGUMENT "T&hree photos"@3@"wizpics\pix_3.gif"
  17. ARGUMENT "S&ix photos"@6@"wizpics\pix_6.gif"
  18. ARGUMENT "N&ine photos"@9@"wizpics\pix_9.gif"
  19.  
  20. BACKSTOP
  21. PAGE
  22. WIZPIC wizpics\wizalbum.gif
  23. TYPE LIST
  24. NAME albumStyle
  25. DESCRIPTION Choose from one of the styling selections below for your album.  This choice determines how the pages that contain the photo album page are decorated (both the `thumbnails' page and the individual picture pages).
  26. ARGUMENT "Photo memories"@1@"wizpics\photmem1.gif"
  27. ARGUMENT "Holiday memories"@2@"wizpics\holidmem.gif"
  28. ARGUMENT "Vacation photos"@3@"wizpics\vacatpho.gif"
  29. ARGUMENT "Party photos"@4@"wizpics\partypho.gif"
  30. ARGUMENT "Holiday photos"@5@"wizpics\hold2pho.gif"
  31. ARGUMENT "Just Photos (generic)"@6@"wizpics\genrcpho.gif"
  32. ARGUMENT "School Photos"@7@"wizpics\scholpho.gif"
  33. ARGUMENT "Fun Photos"@8@"wizpics\funphoto.gif"
  34.  
  35. SETTEMP pictureNameRoot = "albumPix"
  36. SETTEMP pictureCaptionRoot = "albumPixText"
  37. SETTEMP pxprmpt1 = "Select the "
  38. SETTEMP pxprmpt2 = " picture for your collection and enter a caption describing the picture.\n\nIt's best to limit the caption to one or two words."
  39.  
  40. BACKSTOP
  41. SETTEMP nNumber = 1
  42. GOSUB GetEachPix
  43.  
  44. BACKSTOP
  45. SETTEMP nNumber = 2
  46. GOSUB GetEachPix
  47.  
  48. BACKSTOP
  49. SETTEMP nNumber = 3
  50. GOSUB GetEachPix
  51.  
  52. IF nPictures > 3
  53.   BACKSTOP
  54.   SETTEMP nNumber = 4
  55.   GOSUB GetEachPix
  56.  
  57.   BACKSTOP
  58.   SETTEMP nNumber = 5
  59.   GOSUB GetEachPix
  60.  
  61.   BACKSTOP
  62.   SETTEMP nNumber = 6
  63.   GOSUB GetEachPix
  64. ENDIF
  65.  
  66. IF nPictures > 6
  67.   BACKSTOP
  68.   SETTEMP nNumber = 7
  69.   GOSUB GetEachPix
  70.  
  71.   BACKSTOP
  72.   SETTEMP nNumber = 8
  73.   GOSUB GetEachPix
  74.  
  75.   BACKSTOP
  76.   SETTEMP nNumber = 9
  77.   GOSUB GetEachPix
  78. ENDIF
  79.  
  80.  
  81. BACKSTOP
  82. PAGE
  83. WIZPIC wizpics\wizalbum.gif
  84. TYPE EDIT
  85. NAME familylastname
  86. DESCRIPTION Enter you family's last name to use in setting a title for the album.  Please type the name using initial capitals and any other capital letters that make the name appear correctly.\n\nFor example, type Tolson, or McCracken or LaRoche.  Do Not type TOLSON, MCCRACKEN, and do not type tolson, mccracken, etc.
  87.  
  88.  
  89. ; Let user choose a topic to be the parent topic of the album
  90. BACKSTOP
  91. PAGE
  92. WIZPIC wizpics\wizalbum.gif
  93. TYPE CHOOSETOPIC
  94. NAME topic
  95. DESCRIPTION Now that you have created your picture collection, you need to connect it to your Web site so there is a way to access it on the Net.  This will be done with a `hot spot' link.  You can link to the photo collection from any page on the Web site.\n\nHighlight a page (to hold the link) in the list below.  Click on `closed books' to open them and reveal other pages.  Use the scroll bar to move the page display.
  96. PROMPT &Highlight the Page to Link From:
  97.  
  98.  
  99. BACKSTOP
  100. PAGE
  101. WIZPIC wizpics\wizmagic.gif
  102. TYPE DESCRIPTION
  103. NAME finalize
  104. DESCRIPTION_RE "CONGRATULATIONS!\nYou have now completed all the steps necessary to create the photo collection.\n\nWhen you press the Next button, the photograph pages will be built automatically and added to your Web site project.  You have already chosen the page `",topicname(topic),"' to contain a hot spot link to the photo collection.  The last remaining step is for you to decide where the link will display.\n\nWhen you press the Next button, the page `",topicname(topic),"' will be opened automatically, and the mouse pointer will be in the shape of a hand.\n\nJust click in the page where you want the link to be and it will be made for you.\n\nIf you make a mistake, use `Cut and Paste' to move the link."
  105.  
  106.  
  107. ; Set the chosen topic to be the parent topic
  108. SETPARENTTOPIC topic
  109.  
  110. GOSUB MakeAlbumPage
  111.  
  112. BUILDLINKS
  113.  
  114.  
  115. ; Open the topic so it's ready to insert a link
  116. OPENTOPIC topic
  117.  
  118. ;    create links from an existing topic to the topics we have created
  119. ;    0 means "make as many links as you like", 1 means "make a single link"
  120. GETCLICK
  121.  
  122. LINKTO photoPageName 1
  123.  
  124. CLOSETOPICS 1
  125. SAVEVARIABLES           ;for next time defaults
  126. ARGUMENT modulepath("album.bin")
  127.  
  128.  
  129. ;------------------------------SUBROUTINES----------------------------
  130. [GetEachPix]
  131. GOSUB Ordinal ;on call, nNumber contains pix#
  132.  
  133. SETTEMP enterPixVar = pictureNameRoot,nNumber
  134. SETTYPE eval( enterPixVar ) = normal
  135. SETTEMP temp = eval( enterPixVar )
  136. IF temp <> ""
  137.   SETTEMP enterpix = temp
  138. ELSE
  139.   SETTEMP enterpix = ""
  140. ENDIF
  141.  
  142. SETTEMP enterCaptionVar = pictureCaptionRoot,nNumber
  143. SETTEMP temp = eval( enterCaptionVar )
  144. IF temp <> ""
  145.   SETTEMP captiontext = temp
  146. ELSE
  147.   SETTEMP captiontext = ""
  148. ENDIF
  149.  
  150. PAGE
  151. WIZPIC wizpics\wizphoto.gif
  152. TYPE PICTUREANDCAPTION
  153. NAME enterpix
  154. PROMPT Pi&cture:
  155. ARGUMENT Capt&ion:@captiontext
  156. DESCRIPTION_RE pxprmpt1,ordinal,pxprmpt2
  157.  
  158. SETTEMP temp = modulepath( "x" )
  159. SETTYPE enterpix = normal
  160. SETTEMP temp2 = enterpix,"x"
  161.  
  162. IF enterpix = "" || temp2 = temp
  163.   MESSAGEBOX "You must choose a picture.  You cannot leave holes in the photo album.  Press OK to enter a valid picture."
  164.   GOTO GetEachPix
  165. ENDIF
  166.  
  167. SETTYPE enterpix = normal
  168. SET eval( enterPixVar ) = enterpix
  169. SET eval( enterCaptionVar ) = captiontext
  170.  
  171.  
  172.  
  173. ;--------------Build Photo Album Thumbnails--------------
  174. ;
  175. [MakeAlbumPage]
  176. ; Build the thumbnail page first
  177.  
  178. SETTEMP prefix = ""
  179.  
  180. IF albumStyle = 1
  181.  SETTEMP album_template = "Photo Memory Thumbnails - "
  182.  SETTEMP tit1 = prefix,"Photographic Memories"
  183.  SETTEMP ind_pix_template = "Photo Display Page"
  184. ENDIF
  185. IF albumStyle = 2 ;Christmas theme
  186.  SETTEMP album_template = "Holiday Thumbnails - "
  187.  SETTEMP tit1 = prefix,"Holiday Memories"
  188.  SETTEMP ind_pix_template = "Holiday Photo Page"
  189. ENDIF
  190. IF albumStyle = 3
  191.  SETTEMP album_template = "Vacation Thumbnails - "
  192.  SETTEMP tit1 = prefix,"Vacation Photos"
  193.  SETTEMP ind_pix_template = "Vacation Photo Page"
  194. ENDIF
  195. IF albumStyle = 4
  196.  SETTEMP album_template = "Party Thumbnails - "
  197.  SETTEMP tit1 = prefix,"Party Photos"
  198.  SETTEMP ind_pix_template = "Party Photo Display Page"
  199. ENDIF
  200. IF albumStyle = 5 ;Generic holiday
  201.  SETTEMP album_template = "Holiday 2 Thumbnails - "
  202.  SETTEMP tit1 = prefix,"Holiday Photos"
  203.  SETTEMP ind_pix_template = "Holiday 2 Photo Page"
  204. ENDIF
  205. IF albumStyle = 6 ;generic photos
  206.  SETTEMP album_template = "Photo Thumbnails - "
  207.  SETTEMP tit1 = prefix,"Photos"
  208.  SETTEMP ind_pix_template = "Photo2 Display Page"
  209. ENDIF
  210. IF albumStyle = 7
  211.  SETTEMP album_template = "School Thumbnails - "
  212.  SETTEMP tit1 = prefix,"School Photos"
  213.  SETTEMP ind_pix_template = "School Photo Display Page"
  214. ENDIF
  215. IF albumStyle = 8
  216.  SETTEMP album_template = "Fun Thumbnails - "
  217.  SETTEMP tit1 = prefix,"Fun Photos"
  218.  SETTEMP ind_pix_template = "Fun Photo Display Page"
  219. ENDIF
  220.  
  221. SET album_template = album_template,nPictures
  222.  
  223. SETTEMP tit2 = "The ",familyLastName," Family"
  224. SETTEMP top_title =  tit1,": ",tit2
  225.  
  226. SETPARENTTOPIC parentTopic
  227.  
  228. SETTEMP GPCDnPictures = nPictures
  229. GOSUB SetupAlbumPictureVariables
  230.  
  231. SETTEMP photoPageName = "PhotoThumbnails",pictureNameRoot
  232.  
  233. ; build thumbnail page
  234. BUILDTOPIC photoPageName
  235. album_template    ;template
  236. none   ;backdrop
  237. 1      ;level
  238. 9      ;# links
  239. "##Photo1",pictureNameRoot
  240. "##Photo2",pictureNameRoot
  241. "##Photo3",pictureNameRoot
  242. "##Photo4",pictureNameRoot
  243. "##Photo5",pictureNameRoot
  244. "##Photo6",pictureNameRoot
  245. "##Photo7",pictureNameRoot
  246. "##Photo8",pictureNameRoot
  247. "##Photo9",pictureNameRoot
  248. 20        ;# fields
  249. top_title
  250. tit2
  251. pix1
  252. cap1
  253. pix2
  254. cap2
  255. pix3
  256. cap3
  257. pix4
  258. cap4
  259. pix5
  260. cap5
  261. pix6
  262. cap6
  263. pix7
  264. cap7
  265. pix8
  266. cap8
  267. pix9
  268. cap9
  269.  
  270. SET eval( albumTopic ) = topicfromsymbolic( photoPageName )
  271.  
  272. ; now build individual photo pages
  273. SETTEMP GPCDnPictures = nPictures
  274. SETTEMP nNumber = 1
  275.  
  276. GOSUB BuildIndPages
  277.  
  278.  
  279. ;xxxxxxxxxxxxxxxxx MAKE TOPICS FOR PHOTO PAGES xxxxxxxxxxxxxxxxxxxxxxxx
  280. [BuildIndPages]
  281. SETTEMP capVar = "cap",nNumber
  282.  
  283. SETTEMP pixVar = "pix",nNumber
  284. SETTYPE eval( pixVar ) = normal
  285. SETTEMP thisPicture = eval( pixVar )
  286. SETTEMP thisCaption = eval( capVar )
  287.  
  288. SETSCALE thisPicture = 400 320
  289. SETTYPE thisPicture = picture
  290.  
  291. SETTEMP page_name = familyLastName," Photos: ",thisCaption
  292. SETTEMP col_name = familyLastName,": Photo Collection"
  293.  
  294. SETTEMP thisTopicName = "##Photo",nNumber,pictureNameRoot
  295.  
  296. SETPARENTTOPIC eval( albumTopic )
  297.  
  298. SETTEMP pageIDName = photoPageNameVar,nNumber
  299.  
  300. BUILDTOPIC thisTopicName
  301. ind_pix_template    ;template set previously
  302. none        ;backdrop
  303. 1           ;level
  304. 0           ;# links
  305. 4           ;# fields
  306. page_name
  307. thisPicture
  308. thisCaption
  309. col_name
  310.  
  311. SETTEMP GPCDnPictures = subtract( GPCDnPictures 1 )
  312. SETTEMP nNumber = add( nNumber 1 )
  313.  
  314. IF GPCDnPictures <> 0
  315.   GOTO BuildIndPages
  316. ENDIF
  317.  
  318.  
  319.  
  320. [SetupAlbumPictureVariables]
  321. SETTEMP pixVar = pictureNameRoot,GPCDnPictures
  322. SETTEMP capVar = pictureCaptionRoot,GPCDnPictures
  323. SETTYPE eval( pixVar ) = normal
  324. SETTEMP eval( "pix",GPCDnPictures ) = eval( pixVar )
  325. SETTYPE eval( "pix",GPCDnPictures ) = picture
  326. SETSCALE eval( "pix",GPCDnPictures ) = 80 60
  327. SETTEMP eval( "cap",GPCDnPictures ) = eval( capVar )
  328. SETTEMP GPCDnPictures = subtract( GPCDnPictures 1 )
  329. IF GPCDnPictures <> 0
  330.   GOTO SetupAlbumPictureVariables
  331. ENDIF
  332.  
  333. ;xxxxxxxxxxxxxxxxxxxxxxx ORDINAL - SET NUMBER WORDS xxxxxxxxxxxxxx
  334. [Ordinal]
  335. IF nNumber < 7
  336. IF nNumber = 1
  337. SETTEMP ordinal = "first"
  338. SETTEMP numeral = "one"
  339. ENDIF
  340. IF nNumber = 2
  341. SETTEMP ordinal = "second"
  342. SETTEMP numeral = "two"
  343. ENDIF
  344. IF nNumber = 3
  345. SETTEMP ordinal = "third"
  346. SETTEMP numeral = "three"
  347. ENDIF
  348. IF nNumber = 4
  349. SETTEMP ordinal = "fourth"
  350. SETTEMP numeral = "four"
  351. ENDIF
  352. IF nNumber = 5
  353. SETTEMP ordinal = "fifth"
  354. SETTEMP numeral = "five"
  355. ENDIF
  356. IF nNumber = 6
  357. SETTEMP ordinal = "sixth"
  358. SETTEMP numeral = "six"
  359. ENDIF
  360. ENDIF ; if nNumber<7
  361.  
  362. IF nNumber > 6
  363. IF nNumber = 7
  364. SETTEMP ordinal = "seventh"
  365. SETTEMP numeral = "seven"
  366. ENDIF
  367. IF nNumber = 8
  368. SETTEMP ordinal = "eighth"
  369. SETTEMP numeral = "eight"
  370. ENDIF
  371. IF nNumber = 9
  372. SETTEMP ordinal = "ninth"
  373. SETTEMP numeral = "nine"
  374. ENDIF
  375. IF nNumber = 10
  376. SETTEMP ordinal = "tenth"
  377. SETTEMP numeral = "ten"
  378. ENDIF
  379. IF nNumber = 11
  380. SETTEMP ordinal = "eleventh"
  381. SETTEMP numeral = "eleven"
  382. ENDIF
  383. IF nNumber = 12
  384. SETTEMP ordinal = "twelfth"
  385. SETTEMP numeral = "twelve"
  386. ENDIF
  387. ENDIF ; if nNumber>6
  388.  
  389.